      CHARACTER ERRSTR*40,IPAR*10,ERRLEV*1
      LOGICAL ABHOLD
      COMMON /ABRTS1 / ERRSTR,IPAR,ERRLEV
      COMMON /ABRTS2 / IFLAG,IVAL,ABHOLD
